#!/usr/bin/env perl

use v5.14;
use utf8::all;

my $flag = 0;

my @stub_headers = (
    'Википедия не является каталогом ссылок',
    'Добро пожаловать',
);
my %stub_header = map +($_,undef), @stub_headers;

while(<>) {
    if(/^== ([^=]+) ==$/x) {
        my $header = $1;
        $header =~ s<^\s+|\s+$><>g;

        if(exists $stub_header{$header}) {
            $flag = 1;
        }
        else {
            $flag = 0;
            print;
        }
    }
    elsif($flag) {
        next;
    }
    else {
        # including "\0\n"
        print;
    }
}

# vim: ft=perl
